home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload Trio 2 / Shareware Overload Trio Volume 2 (Chestnut CD-ROM).ISO / dir26 / epi601_2.zip / FILES07.EXE / FIRST1.CHK < prev    next >
Text File  |  1994-08-22  |  2KB  |  127 lines
  1. *Tutorial for ENTER.  Part of TUTENTER.BAT.  See also FIRST2.CHK.
  2.  
  3. LASTNAME
  4.   BEFORE ENTRY
  5.     IF ID = 1 then
  6.        HELP FIRSTHLP.HLP 1 20 10
  7.        HELP FIRSTHLP.HLP 8 5 8
  8.     ENDIF
  9.     IF ID = 2 then
  10.        HELP FIRSTHLP.HLP 7 5 8
  11.     ENDIF
  12.     IF ID = 3 then
  13.        Lastname = "Gonzalez"
  14.        Firstname = "Pedro"
  15.        Sex = "M"
  16.        Disease = "HEPATITIS A"
  17.        Discode = 101
  18.        Date = "10/23/93"
  19.        Foodhandle = "Y"
  20.        GOTO AGE
  21.     ENDIF
  22.     IF ID = 4 then
  23.        Lastname = "Gonzalez"
  24.        Firstname = "Patricia"
  25.        Sex = "F"
  26.        Disease = "HEPATITIS A"
  27.        Discode = 101
  28.        Date = "10/21/93"
  29.        Foodhandle = "N"
  30.        GOTO AGE
  31.     ENDIF
  32.     IF ID = 5 then
  33.        HELP FIRSTHLP.HLP 23 5 5
  34.     ENDIF
  35.   END
  36. END
  37.  
  38. FIRSTNAME
  39.   BEFORE ENTRY
  40.     IF ID = 1 then
  41.       HELP FIRSTHLP.HLP 25 10 10
  42.     ENDIF
  43.   END
  44. END
  45.  
  46. CITY
  47.   BEFORE ENTRY
  48.     IF ID =1 then
  49.        HELP FIRSTHLP.HLP 9 5 10
  50.     ENDIF
  51.   END
  52. END
  53.  
  54. ZIP
  55.   BEFORE ENTRY
  56.     IF ID = 1 then
  57.       HELP FIRSTHLP.HLP 10 10 13
  58.     ENDIF
  59.   END
  60. END
  61.  
  62.  
  63.  
  64. AGE
  65.   BEFORE ENTRY
  66.    IF ID = 1 THEN
  67.      HELP FIRSTHLP.HLP 2 5 15
  68.    ENDIF
  69.    IF ID = 3 then
  70.      HELP FIRSTHLP.HLP 26 20 12
  71.    ENDIF
  72.    IF ID = 4 then
  73.      HELP FIRSTHLP.HLP 27 20 12
  74.    ENDIF
  75.   END
  76.   IF ID = 3 or ID = 4 then
  77.     GOTO WRITEREC
  78.   ENDIF
  79.   MUSTENTER
  80. END
  81.  
  82. STATE
  83.   BEFORE ENTRY
  84.     IF ID = 1 THEN
  85.        HELP FIRSTHLP.HLP 3 10 10
  86.     ENDIF
  87.   END
  88. END
  89.  
  90. DISEASE
  91.   BEFORE ENTRY
  92.     IF ID = 1 THEN
  93.        HELP FIRSTHLP.HLP 11 25 10
  94.     ENDIF
  95.   END
  96. END
  97.  
  98. DISCODE
  99.   BEFORE ENTRY
  100.     IF ID = 1 THEN
  101.        HELP FIRSTHLP.HLP 12 15 15
  102.     ENDIF
  103.   END
  104. END
  105.  
  106. DATE
  107.   BEFORE ENTRY
  108.     IF ID = 1 then
  109.        HELP FIRSTHLP.HLP 4 20 15
  110.     ENDIF
  111.   END
  112. END
  113.  
  114. FOODHANDLE
  115.   BEFORE ENTRY
  116.     IF ID = 1 then
  117.        HELP FIRSTHLP.HLP 5 10 15
  118.     ENDIF
  119.   END
  120. END
  121.  
  122. HOSPITALIZE
  123.     IF ID = 1 then
  124.        HELP FIRSTHLP.HLP 6 5 15
  125.     ENDIF
  126. END
  127.